Imports obout_ASPTreeView_Pro_NET
Public Class tree
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    Protected WithEvents TreeView As System.Web.UI.WebControls.Literal
    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim ot As New obout_ASPTreeView_Pro_NET.Tree
        Dim html As String
        ot.TreeIcons_Path = "/ccapps/TreeIcons/Icons"

        'ot.Add("", "root", "", , "book.gif")

        ot.Add("", "root", "", , "red_ball.gif")
        html = "<input class='c' type='checkbox' id='ch1' onclick=ob_t2c(this)>okan"
        ot.Add("root", "a01", html, , "red_ball.gif")
        ot.Add("a01", "a02", html, , "red_ball.gif")

        'ot.Add("root", "a1", "")

        'ot.Add("a1", "b1", "", , "scales.gif")
        'ot.Add("a1", "b2", "", , "scales.gif")
        'ot.Add("b2", "b2_1", "", , "scales.gif")
        'ot.Add("b2", "b2_2", "", , "scales.gif")
        'ot.Add("b2", "b2_3", "", , "scales.gif")
        'ot.Add("a1", "b3", "", , "scales.gif")

        ' more nodes here . . .

        ' Write tree to your page.
        TreeView.Text = ot.HTML()
        'Response.Write(ot.HTML())

    End Sub

End Class
